input = ARGS[1]
output = ARGS[2]
leer <- read.table(input, header = TRUE, sep="\t", row.names = 1, dec = ",")
distancia = dist(leer)
write.table(as.table(distancia), "c:\\pruebas\\pruebaSalida.txt")
clusters = hclust(distancia)
leer<-as.matrix(leer)
leer.trans<-t(leer)
distancia2 = dist(leer.trans)
clusters2 = hclust(distancia2)
png(output)
heatmap(leer, Rowv=as.dendrogram(clusters), Colv = as.dendrogram(clusters2))
dev.off()